home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / asms.arc / STRTHRU.ASM < prev    next >
Encoding:
Assembly Source File  |  1987-08-16  |  287 b   |  25 lines
  1. data:    equ 0
  2. one:    equ 1
  3. mask:    equ 2
  4.     org 0H
  5.     B go
  6.     ORG 0AH
  7. go:    lack one
  8.     sacl one
  9.     lack 08H
  10.     sacl mask
  11.     lac mask,8
  12.     sacl mask
  13. wait:    BIOZ dato
  14.     B wait
  15. dato:    in data,pa3
  16.     lac data,4
  17.     sub one,15
  18.     sacl data
  19.     lac data,9
  20.     addh mask
  21.     sach data
  22.     out data,pa4
  23.     b wait
  24.     end
  25.